<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Test asp</title>
<link href="dlgcy.css" rel="stylesheet" type="text/css" />
</head>
<body class="dlgcy">
<%=now%>
<%response.write "<br/> test : <br/>"%>
<% h=request.QueryString("host")
response.write h %>
<%
username1=request.form("name")
sex1=request.form("sex")
zwjs=request.form("zwjs")
gwly=request.form("gwly")
gift=request.form("file")
response.write "欢迎 "
response.write sex1&" " 
response.write username1&"<br/>"
session("loginName")=username1
response.write "<br/>自我介绍:<br/>" & zwjs
response.write "<br/><br/>给我留言:<br/>" & gwly
response.Cookies("nick").expires=dateadd("d",7,now())
response.Cookies("nick")=username1 
%>
<!--#include file="conn.asp"-->
<%
'Set conn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&Server.MapPath("/data.accdb")
conn.open connstr 

username = username1
sex = sex1
introduction = zwjs
words = gwly

sql = "insert into data (username,sex,introduction,words) values('"&username&"','"&sex&"','"&introduction&"','"&words&"')"
conn.execute sql

conn.Close
Set conn = Nothing

%>
<br />
<br />
<a href="test2.asp" target="_blank">管理数据库</a>
</body>
</html>
